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MODULE CLENUP ( 
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4 fo ( 32), 

[DENY = voe-0008 | 
BEGIN 
' | 
PITITILTILILILILILI LLL LLL LILI LLL LLL LiLiiiiiitiiiiiiiiiiiiiiiiiiiiiie 


ie COPYRIGHT | (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


ie nue  “ieche i. FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
te IN st yeton OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
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® 
® 
® 
® 
® 
® 
& 
ie TRANSFERRED. * 
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® 
® 
® 
* 
* 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:* oORPORAT IO NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Hid . 


AIT 

'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

PETIITITILILI LLL LLL LLL LLL LLL LiL liitiiiiiiii il | 

os 

FACILITY: F11ACP Structure Level 1 

i ABSTRACT: 

This module performs the necessary cleanup after an operation. | 

i ENVIRONMENT : | 
| 
| 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREAVION DATE: 6-Jan-1977 23:53 
i MODIFIED BY: 
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VO3-002 ACG0346 Andrew C. Goldstein, 2-Aug-1983 15:16 
Interface change to Stub: SYMBIONT routine 
vO3-001 LyK0199 awrence J. K 27-Apr-1983 | 
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Do not credit FILONT when Fin mony back shared window | 
v02-008 LMP000S L. Mark Pilant, 29-Dec-1981 14:00 


oo 
oo 


9 | 
1b-Sen-1 984 99:35:93 NI dimGhASteRsce tiacckeacLenuP.e32;1°%° «15) 


: 28 8 ! } Properly cleanup any Cathedral windows. | ‘ 
; 60 0 1 i v02=007 ACG0246 Andrew C. Goldstein, 22-Dec-1981 20:44 : 
; 2 : } Make /NOCACHE flush all caches ; 
oe : g ie v02-006 ACG0245 Andrew C. Goldstein, 18-Dec-1981 18:29 : 
; 3 ¢ ! } Send spool file to print during cleanup | : 
; 66 1 i VO2-005 ACG0244 Andrew C. Goldstein, 18-Dec-1981 17:42 | ; 
; 44 Of : Do buffer flush before deallocating control blocks 

; 9 O69 1! v02-004 ACG0167 Andrew C. Goldstein 7-May-1980 18:47 

3 0 » 7 Previous revision history moved to F11A.REV 

Fe O71 1 !e« 

; £ ons | 

; 74 Sore 1 LIBRARY RL SEL ORARY 14 18,452": 

; 75 te 1 REQUIRE ‘SRCS:FCPDEF.B32'; 

i # O30) | 

: 78 039¢ 1 FORWARD ROUTINE 

i! ve 0395 1 CLEANUP, ! normal cleanu 

; & 0394 1 ZERO_WINDOWS, ! invalidate all windows of file 

; «BI 0395 1 ERR_CLEAN ! cleanup after error 

 § 0396 1 MAKE_DEACCESS, ! deaccess the file | 

; 8 0397 1 L_EXTFC ' deallocate extension FCB's 

; 84 0398 1 ZERO_CHANNEL; ! zero user channel pointer 


“SR CICLENUP.832; 529 * (23 | 
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3 i38 } GLOBAL ROUTINE CLEANUP = 

: bs 491 1 164 | 

; 9 4 § 1! 

3 oy ? : FUNCTIONAL DESCRIPTION: 

; 405 1! This routine performs the cleanup needed after a successfully 

3 4, rf : } completed file operation. 

; «9S 408 1 ! CALLING SEQUENCE: 

; 38 9 1! CLEANUP () 

; § 19 1! 

3 98 41 1 ! INPUT PARAMETERS: 

; 299 tig 1! NONE 

: 100 0415 1! 

; 101 0414 1 ! IMPLICIT INPUTS: 

$ 196 0415 1! CLEANUP_FLAGS: indicate specific actions to do 

; 10 0416 1! RIMARY-FCB: FCB o 

: 104 0417 1! CURRENT_WINDOW: window of file 

3; 105 0418 1! FCB: FCB of director 

: 106 0419 1! WINDOW: window of directory 

: 107 0420 1! DURREAT VCB: VCB of volume in process 

3; 108 0421 1! I10_PACKET: 1/0 pocket of request 

: 109 04 ; 1! 

3; 110 04 1 ! OUTPUT PARAMETERS: 

ps Tt 0424 1! NONE 

3 aT 3 0425 1! | 

. oe 0426 1 ! IMPLICIT OUTPUTS: 

: 114 0427 1! NONE 

3 115 0428 1! 

; 116 9434 1 ! ROUTINE VALUE: 

s 117 0430 1! NONE 

: 118 0431 1! 

3; 6119 043 1 ! SIDE eereres: 

: 120 04335 1! FCB*s and windows deleted when appropriate 

; 121 ot 1! header written 

; 122 04 1! FCB updated 

. tas 0436 1! 

: 126 043 1 !-- 

: 125 0438 1 

s 12 439 BEGIN 

: 4 40 

; 4 3 ree sae HEADER REF BBLOCK ! file head 

3 13 rr : 3 : e header 

; 131 444 EXTERNAL 

3 ' start of cleanup context area 
1 445 CONTEXT_START, t f cl text 

: 134 te9 EOE ANUP matt : BITVECTOR, i Siecns etter bone Tt | 

3 139 48 FILE HEADER : REF BBLOCK, ! address of last file header read 

1 8 SARGRT AGE AEE BREE: | SPSH cure Fs" 

; 138 451 CUR RENT -WINDOW =: REF BBLOCK, ! window of file 

3; 139 £38 DIR_FCB™ : REF BBLOCK, ! FCB of Cirectory 

: 140 45 DIR WINDOW : REF BBLOCK, =! window of direc ory 

s 161 454 CURRENT _VCB : REF BBL LOCK, ' VCB of volum 

3 142 455 10_PACKET : REF BBLOCK; ! 1/0 p acket in process | 


Fe 
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1b-se 1984 00:51:04 VAX=-11 Bliss-32 V4.0-742 Pp 4) 
1 ~300-198% 99:39:93 DISKSVMSMALTER:CFIIA.SRCICLENUP.B32:1 > (2) | 
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3: 143 4 

3; (1446 4 S EXTERNAL LITERAL 

3 122 r 8 CONTEXT_SIZE; ! Length of context area 

: 123 60 EXTERNAL ROUTINE 

: 148 461 FLUSH_BUFFERS, ! write all dirty buffers | 
; «1469 re FLUSH_FID ' flush a file from buffer pool 

: 150 6 READ_READER, i read file header 

s 151 464 NIT_F ' initialize FCB 

3 126 486 DEALCOCATE; ! deallocate dynamic memory | 
: 154 4 | 
; 186 466 ! Switch back to the primary context area if necessary (no normal cleanup 

: 138 69 ! is ever necessary on secondary context). 

5. 3 0470 : 

; 158 per 

; «159 47 IF .CONTEXT_SAVE NEQ 0 

; 160 047 THEN 

; «161 0474 BEGIN | 
3 166 0475 CHSMOVE (CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START); 

: 16 O76 3 CONTEXT_SAVE = 03 
> 164 047 END; 
3 165 0478 

: 166 0479 | seee Note: The primary header of the current file is not necessarily 

3 4 Boe resident at this point. 

; 169 bese ! If the index file or storage map is write accessed, flush the buffer pool 
s 170 048 ! of any of their blocks. 

3; 171 0484 : 
: \7¢ 0485 
: 17 0486 IF . CURRENT VCBLVCBSV_WRITE_IFJ 

+ 1% 0487 2 THEN FLUSH_FID (UPLIT “WORD T1, 1, 0)); | 
3; 175 0488 IF_.CURRENT VCBLVCB$V_WRITE_SM 
3 iv 434 THEN FLUSH_FID (UPLIT WORD T2, 2, 0)); | 
; 178 0491 ! If the volume is mounted /NOCACHE, flush all buffers from the buffer | 
: 179 049 ' pooi. 

: 180 049 i 
: «181 0494 | 
$ ise 0495 IF . CURRENT VCBLVCBSV_NOCACHE) 

3 (18 049 THEN FLUSH_FID (0); | 
> «(184 049 

; «185 0498 ' Flush all dirty buffers. 
3 136 0499 ! 
P| 0500 
; 188 B20; FLUSH_BUFFERS (); 
3; «189 208 
; 190 050 ! If a directory FCB and window are left about with no use, Jispose of them. | 
3 19 0504 ! If the directory file is write accessed, flush the buffer pool of any 
3 136 rt blocks that might be resident. 

3 194 5 
3: «195 508 IF .DIR_FCB NEQ 0 

3 136 509 THEN 

; 19 510 BEGIN 

; 198 511 IF .DIR_FCBCFCBSW_ACNT] EQL 0 

3; 199 512 THEN 


1erSep-19be V:29:28 TSK 


If an FCB is Left about with no use, dispose of it. 


IF .PRIMARY_FCB NEQ 0 
THEN 


BEGIN 
1 IF NOT .DIR_FCBCFCB$V_DIRI 
< THEN 

BEGIN 
4 5 KERNEL cy (DEALLOCATE, .DIR_FCB); 
5 2 DIR_FCB = 0; 
5 END 

8 5 ELSE 
9 5 BEGIN 
0 5 IF .DIR_FCBCFCB$SW_WCNT] NEQ 0 
1 3 THEN FLOSH_FID (DIR_FCBCFCBSW_FIDJ); 
5 END; 
5 IF .DIR_WINDOW NEQ 0 
6 THEN 
7 BEGIN 
8 KERNEL CALL (DEALLOCATE, .DIR_WINDOW); 
g DIR_WINDOW = 0; 
0 END; 
: 
4 
5 
6 
7 


BEGIN 
IF .PRIMARY_FCBCFCBSW_ACNT] Fay 0 
we iil -PRIMARY_F CBCFCB$V_DIR 


BEGIN 
KERNEL CALL (DEALLOCATE, .PRIMARY_FCB); 
PRIMARY_FCB = 0; 


Wwn— 


END; 
Invalidate any windows on the file, if requested. 
IF TESTBITSC (CLEANUP_FLAGSCCLF_INVWINDOW)) 
AND .PRIMARY_FCB NEQ 0 
THEN KERNEL_CALL (ZERO_WINDOWS, .PRIMARY_FCB); 
RETURN 1; 


END; ! end of routine CLEANUP 
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~-TITLE CLENUP 
-IDENT \V04-000\ 


-PSECT S$CODE$S,NOWRT,2 


-WORD 1, 1, 8 


8000 S002 6002 00008 P:Aas: “WORD 2° 2° 


nN 9 | 
16-Sep-1984 00:51:04  VAX=11 Bliss-32 v4.0-742 6 

10-866-1984 13:35:93 DTSKSVMGMASTERSCY TiAsSRCICLENUP. B32:1° ef 
LEXTRN CONTEXT_START, CONTEXT SAVE | : 
~EXTRN CLEANUP-FLAGS, FILE HEADER : 
~EXTRN CURRENT-FIB, PRIMARY FCB | ; 
-EXTRN CURRENT-WINDOW, DIR_FCB : 
-EXTRN DIR WINDOW, CURRENT VCB | : 
~EXTRN 10 PACKET, CONTEXT SIZE ; 
“EXTRN FLOSH BUFFERS, FLUSH FID | : 
-EXTRN READ READER, INIT FC | ; 
-EXTRN DEALCOCATE, SYSSCAKRNL : 
OFFC 00000 “ENTRY CLEANUP, Save R2,R3,R4,R5,R6,R7.RB.RIRIO,~ ; 0399 ; 
CF 9E 00002 MOVAB CONTEXT _SAVE, R11 : : 
CF 9E 0000 MOVAB = DEALLOCATE R10 : ; 
CF 9E 0000C MOVAB CURRENT_VCB, R : : 
CF 9E 00011 NOVA PRINARY"FCB,_ RB ; : 
CF 9E 00016 MOVAB FLUSH_F : : 
9F 9E 0001B MOVAB ass YSECAKANL « R6 ; : 
68 D5 000¢2 TSTL CONTEXT ; 0472 ; 
OA 13 00024 BEQL : ; 
00006 CF 68 00006 8F 28 00026 ROVES REONTEXT SIZE, CONTEXT_SAVE, CONTEXT_START ; 0475 : 
6B D4 0002E CLRL CONTEXT _SAVE ; 0476 : 
50 69 DO 00030 18: MOVL  CURRENT-VCB, RO ; 0486 : 
06 0B AD £9 00033 BLBC  11¢R0), 28 ; : 
BA AF 9F 00037 PUSHAB P.AAA ; 0487 : 
7 01 FB OO03A CALLS #1, FLUSH FID 3 : 
0 69 D te) 2s: MOVL §§ CURRENT VCB,_RO ; 0488 : 
06 0B Ad 01 £1 00040 BBC #1, 11(RO), 38 ; 2 
B2 AF 9F 00045 PUSHAB P.AAB 3 0489 | : 
67 01 FB 00048 CALLS #1, FLUSH FID 3 ; 
50 69 DO 00048 3$: MOVL CURRENT VCB, RO ; 0495 ; 
05 53 AD 01 £1 0004 BBC = #1, B3(RO), 4$ : : 
7E D4 0005 CLARL_ == (SP) ; 0496 ; 
01 FB 00055 CALLS #1, FLUSH_FID : : 
00006 CF 00 FB 00058 4s: CALLS #0, FLUSH™BUFFERS ; 0501 ; 
50 00006 CF oO 0005 MOVE DIR_FCB. RO ; 0508 : 
A A085 00064 TSTW  26(RO) ; 0511 : 
15 12 00067 BNEQ ; ; 
1¢ 22 Ad £8 00069 BLBS  34(RO), 6$ > 0514 : 
50 DD 0006D PUSHL RO : 0517 : 
O1 Dd 0006 PUSHE At ; ; 
4400 8F BB 00071 PUSHR #4 M< : : 
66 04 FB 0007 CALLS #4 “Sygétrwcrn ; ; 
00006 CF D4 0007 CURL DI IR_F > 0518 : 
OB 11 9o07¢ BRB > 0511 | : 
1c AO BS QOOTE 58: sty 38¢RO) ; 0523 ; 
06 0081 BEQL ; ; 
24 AO 9% 00085 PUSHAB  36(RO) ; 0524 ; 
67 01 FB 00 CALLS FLUSH FID : | : 
50 00006 fF BO 00089 6s: MOV ie WINDOG, RO ; 0528 | : 
80 DD 00 PUSHL : 0531 | ; 
1 DD 0009 PUSHE I : i 
4400 BF BB 0009 PUSHR #*M<R ; | : 
66 4 FB 00098 CALLS #4 “SYSECRCRNL : | : 
00006 CF D4 00098 CLRL = DIR_WINDOW ; 0532 | : 

| 

| 

| 


ee ooo 


1-30 20pn The 3:30:95} NIEKSUMGMASTER SCE Tia. She aCLENUP.832;1°° 


68 p oF 7$: MOVL § PRIMARY_FCB, RO 
6 A2 BEQL 8 
1A OA 8 AG TSTW (RO) 
11 A7 BNEQ 
22 Ad E a9 BLBS 4(RO), 8$ 

50 DD OO0AD PUSHL RO 

1 DD OOOAF PUSHL #1 

F BB 00081 PUSHR #*M<R10,SP> 

4 FB 0008 CALLS #4, SYS$CMKRNL 
68 D4 0008 CLRL PRIMARY _FC 

4 £5 OOOBA 8$: BBCC #4, CLEANUP_FLAGS, 9$ 
68 D 99¢ TSTL PRIMARY_FCB 

D 1 C BEQL 
68 0D 000C PUSHL PRIMARY_FCB 
gi DD 00¢6 PUSHL #1 

E DD 000C PUSHL SP 

0000v CF 9F OOOCA PUSHAB ZERO WINDOWS 
66 os FB OOOCE CALLS SYSSCMKRNL 
50 1 pO 00001 9%: MOVL th RO 
04 00004 RET 


; Routine Size: 213 bytes, Routine Base: $CODE$ + O00C 
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JCLENUP.B32;1 (3). 
GLOBAL ROUTINE ZERO_WINDOWS (FCB) = | 


0-7 
A.S 


20-742 
1A. SRC 


<< o 
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tee 
FUNCTIONAL DESCRIPTION: 


This routine invalidates all windows corres ty in use on the 
indicated FCB. This routine must be executed in kernel mode. 


CALLING SEQUENCE: 
ZERO_WINDOWS (ARG1) 


INPUT PARAMETERS: 

ARG1: address cof FCB 
| 
| 
| 


WN“ OOONOUS WOOD 


IMPLICIT INPUTS: 
CURRENT_WINDOW: address of caller's window, if any 


PAEXEQ®ADPAA ASSIS  & 
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H 1 

; 1 

3 1 

3 1 

8 1 

oO 1 

3 1 

@ 1 

2 1 

3 2 1 

me 1 

3 2 1 

6 4 

3 : 1 

. 1 

3 5 1 

; 5 1 

: 265 5 1 

; 28 5 1 OUTPUT PARAMETERS: 

; 26 5 1 NONE 

; 268 5 1 

: 269 5 1 ! IMPLICIT OUTPUTS: 
3; 271 5 1 

3; ea? 5 1 ! ROUTINE VALUE: 
; e7 5 1 NONE 
3: 276 5 1 

: 27s 587 1 ! SIDE EFFECTS: 

$ re 23 : all windows marked empty, caller's turned 

i $f 350 | ine 

. ar 591 1 

; 280 59 BEGIN 

; 281 59 

° 8 594 MAP 

; 28 595 FCB : REF BBLOCK; 

3; 6284 596 

° 85 597 LOCAL ; . } 
; 286 598 : REF BBLOCK, ! window pointer 

; 287 599 DUMMY, ! dummy sturage for REMQUE return 
; 4 0600 WINDOW SEGMENT : REF BBLOCK, ! pointer to window segment 
; $9 060) NEXT_SEGMENT : REF BBLOCK; ! pointer to window after next one | 
: 291 60 
2 4 604 EXTERNAL ROUTINE 

3 4 vet DEALLOCATE; ! deallocate dynamic memory 
; 295 Bea? ! Loop through the window List off the FCB, zeroing all the retrieval pointer 

; 2% 608 i counts. Then turn the user's window to VBN 1 if it exists. 

3; aor 0609 : 

; 298 2919 

; 299 061 P = .FCBCFCBSL_WLFLI; 

; 300 pels 

:; 301 61 UNTIL .P EQL FCBCFCBSL_WLFLJ DO 

3 8g 614 GIN 
; 615 PCWCBSW_NMAP) = 0; 
; 504 616 WINDOW SEGMENT = .PCWCBSL_LINK); 


ae D 10 
16-Sep-1984 VAX-11 Bliss-32 V4.0-742 9 
w000 14- Sep-1984 99: 34; 5) DISKSVMSMASTER:CF11A.SRCICLENUP.B32; a9 * (3) 
5 UNTIL .WINDOW SEGMENT EQL 0 


| 


BEGIN 
NEXT S EGMENT = -WINDOU SEGMENT CWCBSL LINK); 
REMQ ove ¢ (WINDOW SEGMENT MY); 
DEALLOCATE, COTnbo s EGE aay 
Wi NDOW. SEGMENT = NENT” _SEGMENT; 


PrucésL LLLINK] = Q; | 
P= PCG COMPLETE) = 0; 
OCBSL_WLFLI; | 


! eeeee Note: When handling of window misses goes into its final form, 

i this routine must also scan the 1/0 queue on the UCB and Look for 1/0 

i into the blocks just deallocated. ALl such requests must be yanked out 
i of the queue and routed to the ACP for error processing. 


RETURN 1; 
END; ! end of routine ZERO_WINDOWS 
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50 06 =A 
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), WINDOW SEGMENT 
INDOW_SEGMENT), NEXT_SEGMENT 
DOW SEGMENT), DUMMY 
0 SEG GRENT 

00006 DEAL 


20 3$: CLRL 
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; Routine Size: 64 bytes, Routine Base: $CODE$ + 00E1 
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1 
1 5-19 & DISKSVMSMASTER:CF11A.SRCICLENUP.B32; 


: 7 3 } GLOBAL ROUTINE ERR_CLEANUP = 

: § 40 1 t+ 
: ae | 
: 1 ¢ ! FUNCTIONAL DESCRIPTION: | 
: ‘ 644 1! This routine performs the cleanup needed after a file 
; 2 or : operation tnat has terminated in an error. 

; 1 i CALLING SEQUENCE: 

: 8 : ERR_.LEANUP () 
; 50 1 | INPUT PARAMETERS: | 
3 re 2) ! NONE 

; 4g 38 1 | IMPLICIT INPUTS: 

: rt $28 : CLEANUP_FLAGS: indicate specific actions to do | 
: 345 0656 1 | OUTPUT PARAMETERS: 

: 39 bese meh | 
: 348 0689 1 | IMPLICIT OUTPUTS: | 
: 359 o6et | — | 
; 351 O66¢ | i ROUTINE VALUE: 

: 388 bees | sect 

; 354 0665 1 | SIDE EFFECTS: | 
3 395 2068 1! file deaccessed if necessary | 
: 356 0667 1! channel window pointer cleared | 
; 357 0668 1! 
3 358 0669 1 !-- 
: 359 0670 1 
3 £9 44 BEGIN | 
i 36¢ 0673 2 EXTERNAL | 
3 0674 PMS_SUB_NEST ' depth count on subfunction metering 

: 364 0675 CONTEXT-START, ! start of active context area ) 
; 5 067 CONTEXT_SAVE ! start of context save area 
; 7 CLEANUP-FLAGS =: BITVECTOR, | cleanup action flags | 
3 78 UNREC_COUNT, ' count of unrecorded but allocated blocks 
: 679 UNREC _LBN, : LBN of above ; 
; 0680 Ew FID ! file number of unrecorded file ID 
; 81 USER_ STATUS : VECTOR, i user 1/0 status block 

; ¢ UPER_FID : BBLOCK, ' file ID of superseded file 

3 8 BD FIB : BBLOCK, ' FIB for secondary file operation 

: Be CURRENT 718 : REF pet Ock.. pointer to FIs currently in use 

; Bg PRIMARY. FCB : REE BBLOCK, i FCB of this file 

3 ; CURRENT WINDOW : REF BBLOCK, ! window for this file 

; 8 10_PACKET : REF BBLOCK, ! 1/0 packet for this operation 

; 34 DIR_RECORD; ! record number of directory entry 

; 91 2 EXTERNAL LITERAL 

: 44 CONTEXT_SIZE; ! Length of context area 

; 694 2 EXTERNAL ROUTINE 


—_—_—— ae — 
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yoe-000 18-808-1382 99:39:93 DISKSVMSMASTER:CF1IA. RCICLENUP.B832;1 ° (4) vor 
end rape tay of current subfunction 

deallocate dynamic aonery 

send file to job controller 

read directory record 

write directory record 

delete a file 


delete a file number 
return blocks to storage map 
file truncate routine 


RO SEG Sha wae 
Bnxnonesesrr wee> 


update FCB contents 

read next extension file header 
create extension F 

checksum file header 

rebuild the windows for a file 


Oe 


If a subfunction was being executed, turn off metering now. 


LAMINIMONONONOPORONON — SS SS OS we 
FUSS Seen ds Lsry SOOO NONP WMO See ee ARON bee 


74 IF TESTBITSC (CLEANUP_FLAGSCCLF_DEACCESS)) 
74 THEN KERNEL_CALL (MAKE_DEACCESSJ; 


751 ! Deallocate the window block if called for. 


7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 
404 oF : 
rey 7 IF .PMS_SUB_NEST NEQ 0 

7 THEN 

7 BEGIN 
409 7 PMS_SUB_NEST = 1; 
410 7 PMS_END_SUB (); 
411 07 END; | 
sig 07 
41 07 ! We repeat the entire procedure twice if a secondary file operation was 
tie 4 } in progress (indicated by non-zero saved context). | 
218 8 
41 7 WHILE 1 DO 
213 4 BEGIN 
420 $5 ! Locals are declared here to prevent their scope from extending around the 
? 1 o7 entire main loop and raising havoc with register assignment. 
£55 7 
424 BPR LOCAL 3 
425 0736 HEADER : REF BBLOCK, ! address of file header 
4 $ 737 FCB : REF BBLOCK, ' FCB pointer 
4 738 WINDOW SEGMENT : REF BBLOCK, address of the next window segment | 
428 7 NEXT SEGMENT : REF BBLOCK, ' address of one beyond the next window 
429 740 RECADDR : REF BBLOCK, ! address of directory record 
4 741 Tl, ! random temps 
431 4g Vee 
4 § 74 13; 
4 744 
434 745 ' Deaccess the file if requested. 
435 74 ! 
4 
4 
4 
4 
4 
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ar 


6 
Eg 


3 7 ! ; 
: 46 7 g : 
; ar f ¢ IF TESTBITSC (CLEANUP_FLAGSCCLF _DELWINDOW)) : 
; 4465 7 § IF .CURRENT_WINDOW NEQ 0 : 
:; 446 7 THEN : 
: 46 7 8 4 BEGIN : 
3; 448 7 4 WINDOW _SEGMENT = .CURRENT_WINDOW; ; 
3; 449 760 4 dO : 
; 450 761 BEG in : 
; 4651 166 NEXT SEGMENT = ,WINDOW SEGnENTCuCeSL LINK); : 
> 4 ¢ 76 KERNEL_CALL (DEALLOCATE No Wd SEGMENT) ; : 
3; 4 764 WINDOW-SEGMENT = .NEXT_SEG : 
; 654 765 EN ‘ 
; 4455 766 4 UNTIL ,WINDOW ene EQL 0; ; 
; 456 767 4 CURRENT -WINDOO = 0; : 
; 4657 768 END; : 
; 458 0769 
; 459 0770 ! Clean out the window pointer in the user's channel if necessary. 
; 460 0771 ! 
; 461 140: 
3 re or? IF TESTBITSC (CLEANUP_FLAGSCCLF_ZCHANNELJ) 
3 $63 grr THEN KERNEL_CALL (ZERO_CHANNEL)? 
; 465 0776 ! If there is a file header resident, it probably needs to be checksummed, 
; 466 0777 i except in the case of a failed truncate, where we discard the header. 
3; 467 0778 ! Then read back the primary file header. 
; 468 0779 
; 469 0780 
; 670 0781 HEADER = .FILE_HEADER; 
3 «471 07 ; IF .HEADER NEQ™O 
3; 47 07 THEN 
; 47 0784 4 BEGIN 
3; 676 Bone 4 IF .CLEANUP_FLAGSCCLF_CLEANTRUNC] 
; 475 786 4 THEN INVALIDATE (.FILE HEADER) 
13 476 TA 44 4 ELSE CHECKSUN (FILE HEADER) ; 
; 477 788 : HEA = READ_HEADER ((IF .CURRENT_FIB NEQ 0 
; 678 0789 THEN CURRENT_ FIBCFIBSW_FIDJ 
> 479 0790 4 ELSE 0), | 
; 480 0791 4 -PRIMARY_FCB); 
; «+481 O78 END; 
; 48 079 | 
; 48 0794 ! Send the file to the job controller if it is to be spooled. 
F one 144 ! 
; 485 ay 
: 486 43 IF TESTBITSC (CLEANUP_FLAGSCCLF DOSPOOL)) 
3 re £4 98 THEN SEND_SYMBIONT (.READER, .PRIMARY_FCB); 
; rt 0800 If a directory entry needs to be re-entered, do so. 
> 491 60 
; 49 88 IF TESTBITSC (CLEANUP_FLAGSCCLF_REENTER]) 
; 49 Be THEN 
3 494 5 4 EGIN 
3; «4495 4 RECADDR = DIRGET (.DIR_RECORD, 0) 
> 496 4 SMOVE (FIB$S FID, SUPER_FID, RE EADDRENMBSW_ FIDJ); 
; 497 0808 4 DIRPUT (.RECADBR); 


6 
s 


= 
LESRELLSSS 


Oo 
@ 


Cd CD CD CD CD OD CD OD CD OD Cd OD CD CD CD CD 9 CD CD CD CD CD CD. CDOD CD 


WAN ANAATRIRNNINININNIIN 3S 3 3 3D 
AEWA OOO NOAU EWN OQOWODNOULSWWN—0OD 


DUPVIVIVLUDPUPVSIULV SVS PVSVSII SVD TOI ID FOSS ISUSVUSISISISISISISIOS S 


Sess bn wee nruseees 
WN 0 OBNOUESWN $C OONOUSWNR—O 


w 


OOOCOCOCOCO OOOO OCOCOCOOCOCOOOOCSO SOOO OOCOCOCOCOOOCOOOOOOOOOOoOOOO 
FW 0 OONOUE WN OOO 


SOSOOSSseee 


Eat ek et ek tl et ae 
WNAUEWN—O 
PUP PUPVSVSUSISIS 


r~ 
we) 
ted 


Wr —O0Onoul 


bye tet PET YS EY St rae: 


Sooooo°oo 
Seeee 


w 


H 10 

16-Sep-1984 00:51:04 VAX-11 Bliss-32 V4 

12-808-13 4 90:39:93 DISKSVMSMASTER:(CF1 
FLEAMUP _FLAGSCCLE REMOVE? = 0; 


If a directory entry needs to be removed, do so. 


— (CLEANUP _FLAGSCCLF _REMOVE)) 


If there are unrecorded blocks allocated from the storage map, return them. 


4 
4 
4 
4 
| IF .UNREC_COUNT NEQ 0 

THEN 
4 BEGIN 
4 RETURN_BLOCKS (.UNREC_LBN, .UNREC_COUNT); 
4 UNREC_COUNT = 0; 
| ND; 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


ile deletion is called for, do it. This is either a create that 


f a f 
ailed later on, or a real delete. 


i 


: | 

; § 

' 

— (CLEANUP_FLAGSCCLF _DELFILEJ) 


EGIN 
CLEANUP_FLAGSCCLF _TRUNCATE) = 0; ' no truncate npesesary after a delete 
CLEANUP_FLAGSCCLF DELFID] = 0; ' leave header behind if failure 
DELETE FILE (.CURRENT_FIB, .HEADER); 
If an extend operation failed, truncate the file. 
IF TESTBITSC (CLEANUP_FLAGSCCLF_TRUNCATE)) 
ti = .CURRENT_F IBCFIBSL_EXSZ); ! save the data returned by EXTEND 
T2 = . CURRENT FIB F JBSLIEXVEN; i so it won't be smashed by TRUNCATE 
= USER praryst) ° 
CURRENT FIGBLFIBSL_EXSZ) = 0; 
CATE (. CURRENT FIB, .HEADER, DEALLOC_BLOCKS); 
EADER = .FILE HEADER; ' follow buffer shuffling 
CURRENT _FIBLFIBSL_EXS2) = .11; 
CURRENT-F IBLF IB$L-EXVBN) = .T2; 
USER STATUS(1) = <T3; ; 
CLEARUP_FLAGSCCLF_INVWINDOW) = 0; ! windows were never extended, so no need 
CLEANUP” FLAGSCCLF~CLEANTRUNC) = 0; 
CHECKSUM (.HEADERT; 


! If a truncate has failed, redo the operation to produce a correct file 


oso 
~w 
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voe~000 12286871382 93:35:95 UN SumBnASTeRsCyTiAccReICLENUP.B32;1°%° (45 
3 5 r¢] ! header, but don't return blocks fo the storage map. We assume the header 
3 $ es ; was nfg and contained bogus retrieval pointers. 

; 7 19 IF TESTBITSC (CLEANUP_FLAGSCCLF_CLEANTRUNCJ) 

; 560 7 THEN 

; 561 te 4 BEGIN 

3 $6 75 4 CURRENT _FIBCFIBSL_EXSZ) = 0; 

; 56 74 4 TRUNCATE (.CURRENT FIB, .HEADER, 0); 

; 564 75 4 HEADER = .FILE_HEADER; ! follow buffer shuffling 
3 564 6 END; 

: €3 a ' Various errors leave the file control block screwed up. If needed, 
3 os 44 rebuild it and its extensions from scratch. 

: 570 ea 

H 71 08 ; IF TESTBITSC (CLEANUP_FLAGSCCLF_FIXFCB)) 

; i 088 AND .PRIMARY_FCB NEQ 

$ a7 Bare + eat REQ 0 

: 575 0886 IF -PRIMARY FCBCFCBSV_DIRJ 

; 576 088 OR .PRIMARY_FCBCFCBSW-ACNT] NEQ 0 

Hh BBE hace 

: 579 0890 4 FCB = .PRIMARY_FCB; 

; 580 0891 4 KERNEL_CALL (DEL_EXTFCB, .FCB); 

; 581 +93 4 KERNEL-CALL CINIT_FCB, .FCB, .HEADER); 

3 aT 893 4 WHILE T DO 

; 58 0894 5 BEGIN 

; 584 0895 5 HEADER = NEXT_HEADER (.HEADER, .FCB); 

: 585 0896 5 IF ,HEADER EQC 0 THEN EXITLOOP; 

; 238 od ? cas KERNEL_CALL (MAKE_EXTFCB, .HEADER, .FCB, 1); 
: 588 0899 4 IF .FCB NEQ .PRIMARY_FCB 

: 350 0901 § THEN BEGIN 

; 591 0902 5 HEADER = READ HEADER (0, .PRIMARY_FCB); 

: 236 090 5 KERNEL_CALL (OPDATE_FLB, »HEADER); 

; FF Bone 4 END; 

3 33e 044 END; 

: 296 0909 ' Clean up any Cathedral windows which have broken. 

Be BBE 

; 339 910 IF TESTBITSC (CLEANUP_FLAGSCCLF_REMAP]) THEN REMAP_FILE (); 

: 601 a ! If there is a dangling file ID (from a partial create or header extension), 
3 o0¢ 91 ! dispose of it. 

: bbe 318 3. 

> 605 916 § IF NEW FID NEQ 0 

3 ty 4 THEN DECETE_FID (.NEW_FID); 

: 608 319 ' Copy the saved context, if any back into the primary context and repeat 
; 609 0 ' the cleanup. 

; 610 921 : 

3; «6611 0922 
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12-88-1382 90:34: 2  _DISKSVMSMASTER:CF11A.SRCICLENUP.B32; 1 ° (4) 
: 61 923 3 IF .CONTEXT SAVE EQL 0 THEN EXITLOOP; | : 
; gig 904 3 CHSMOVE (CONTEXT SIZE, CONTEXT_SAVE, CONTEXT_START); | ; 
3 oie 2 é CONTEXT_SAVE = 0; | : 
; 61 9 END; ! end of major loo : 
: i$ 928 | : 
; 618 9 RETURN 1; ; 
; 61 0930 ; 
; 620 0931 7 END; ! end of routine ERR_CLEANUP : 
| ° 
.EXTRN PMS_SUB_NEST, UNREC_COUNT : 
[EXTRN UNREC_LBN, NEW_F ; 
“EXTRN USER STATUS, SOPER_FID | : 
-EXTRN SECOND FIB, DIR_RECORD ; 
-EXTRN PMS_END_SUB, SEND SYMBIONT ; 
“EXTRN DIRGET, DIRPUT, DELETE FILE ; 
“EXTRN DELETE FID, RET t ; 
“EXTRN TRUNCATE, INVALIDAT ; 
“EXTRN UPDATE_FCB, NEXT HEADER ; 
“EXTRN MAKE_ERTFCB, CHECKSUM F 
EXTRN REMAP_FILE : 
OFFC 00000 ENTRY ERR_ CLEANUP, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0638 ; 
5B 00006 CF 9€ 0000 MOVAB CURRENT_FIB, R11 : ; 
SA 0000G CF 9€ 0000 MOVAB PRIMARY-FCB, R10 : ; 
59 000000006 SF 9F 9000¢ MOVAB aASYSSCAKRNL, R9 : ; 
58 000G CF 9E 00013 MOVAB CLEANUP FLAGS, R8& : ; 
00006 CF D5 00018 TSTL  PMS_SUB : 0717 ; 
OA 13 0001C BEX 1$ : ; 
0000G CF 01 pd 00018 MOVL #1, PMS_SUB_NEST : 0720 ; 
00006 CF 00 FB 000 CALLS #0. PMS S : 0721 ; 
68 10 €5 00028 1$: BBCC #16, CLEANUP_FLAGS, 2$ : 0748 : 
7E D4 0002C CLRL 30s = (SP) : 0749 ; 
SE DD O0¢E PUSHL SP ; : 
0000v CF 9F 00030 PUSHAB MAKE_DEACCESS : : 
69 03 FB 00 CALLS #3, SYSSCMKRNL 3 3 
24 ra) 1A £5 00037 28: BBCC #26, CLEANUP_FLAGS, 4$ + 0754 ; 
50 00006 CF 06 00 B MOVL § CURRENT_WINDOW, RO : 0756 ; 
1D 13 0004 BEQL 46 4$ ; : 
52 50 00 0048 MOVL R0 WINDOW_ SEGMENT : 0759 : 
5 20 Ag D0 004 3$: MOVL § 32(WINDOW SEGMENT), NEXT_SEGMENT : 076¢ 3 
52 DD 00049 PUSHL WINDOW_SEGMENT : 076 : 
01 DD 00048 PUSHL #1 ; ; 
5E pd 9040 PUSHL SP : ; 
00006 CF 9F O004F PUSHAB DEALLOCATE : : 
69 04 F 0095 CALLS #4, SYSSCMKRNL ; ; 
52 3D $ MOVL § NEXT_SEGMENT, WINDOW SEGMENT > 0764 : 
EA 12 000 BNEQ 3 ; 0766 $ 
00006 CF 04 00058 CLAL CURRENT WINDOW : 0767 : 
0B 68 11 €5 OO05F 4s: BBCC #17, CLEANUP_FLAGS, 5$ : 0773 ; 
7E D4 063 CLRL = = SP) : 0774 : 
5E bb 6 PUSHL SP ; : 
0000v CF OF 067 PUSHAB ZERO CHANNEL ; | : 
09 03 FB 00068 CALLS #3, SYSSCMKRNL ; : 

| 

| 

| 
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5$: 


11$: 


12$: 


13$: 


148: 


15$: 


+96 VAX-11 Bliss-32 V4.0-7 
:22 DISKSVMSMASTER:CF11A.S 


FILE HEADER, RO 
READER 


+ CLEANUP_FLAGS+2, 6$ 
#1, INVALIDATE 
7$ 


=(SP) 
"2, READ_HEADER 
#2, CLEANUP_FLAGS, 11$ 
PRIMARY_FCB 
ADER 


HE 
#3 SEND_SYMBIONT 
#23, CLEANUP_FLAGS, 128 


CADDR 
#6, SUPER_FID, (RECADDR) 
R DR 


#1 
#64 
#22 
§ 
R 


D 

tee GET 

RO, RECADDR 

#1, DIRPUT 

UNREC_ COUNT, RO 

las 

UNREC_LBN 

#2, RETURN _BLOCKS 
COUNT 


UNREC 

ae CLEANUP_FLAGS, 15$ 
#20, CLEANUP~FLAGS+2 
HEADER 


CURRENT 
ue DELETE FILE 
#ié CLEANOP_FLAGS. 16$ 
CURRENT FIB,"R 
g4¢ ), 
8(RO), T2 
USER STATUS#4, T3 
24 (RO) 


42 Pa 
RCICLENUP.B32:1 >" 


16 
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obs 000 16-Sep-1984 90:39:93 DISKSVMSMASTER:CF1IA.SRCICLENUP.B32:1- ph 
0081 F BB 001 PUSHR #*M<RO,R7> : : 
00006 CF 8f FB 001 4 CALLS #3, TRUNCATE : | ; 
7 00006 CF DO 0013A MOVL FILE_HEADER, HEADER : 0856 : 
i hn ee foot SB 
1e A DO 00146 MOVL Tg, 28(RO) i 0858 ; 
00006 CF DO OO14A MOVL T YSER_ STATUS +4 + 0859 : 
68 00080010 BF CA O014F BICL2 #504304,~CLEANUP_FLAGS + 0861 : 
00006 CF an 133 CATS RL ERECKSUM ten 
16 8 13 8 15D 168 BCC #19, CLEANUP_FLAGS, 17$ ; 0870 ; 
0 68 D0 6161 MOVL CURRENT _FIB, RO + 0873 ; 
18 AO D4 00164 CLRL 4(RO) : : 
7E 04 00167 CLRL = = (SP) + 0874 : 
0081 8F BB 00169 PUSHR #*M<RO,R7> : ; 
00006 CF 03 FB 0160 CALLS #3, TRUNCATE : ; 
7 00006 CF D0 001 MOVL FILE_HEADER, HEADER + 0875 ; 
75 68 01 €5 00177 17S: BBCC #1, CLEANUP_FLAGS, 21$ ; 088 : 
Ate deat BRIMAre® tame 4! 
57 03 O17 TSTL HEADER > 0884 ; 
6D 13 00181 BEQL 21$ : ; 
50 6A DO 00183 MOVL § PRIMARY_FCB, RO + 0886 : 
05 22 AO £8 00186 BLBS  34(RO),~18$ ; : 
Hoe Rae gat gt fos) | 
52 $0 DO OO18F 18%:  MOVL RO, FCB : 0890 : 
52 DD 00192 PUSHL FCB + 0891 : 
Pep oie UE : : 
0000v CF 9F $0198 PUSHAB DEL_EXTFC : ; 
69 04 FB 0019C CALLS #4, SYSSCMKRNL ; : 
0084 8F BB 0019F PUSHR = #*M<R2,R7 + 0892 3 
a ae : : 
00006 CF 9F SOTA? PUSHAB INIT_FCB : : 
69 5 FB O0O1AB CALLS #5, SYSSCMKRNL : 3 
; DD OO1AE 19$:  PUSHL FCB : 0895 ; 
57 DD 00180 PUSHL HEADER : : 
00006 CF 92 FB 0182 CALLS #2, NEXT_HEADER ; ; 
a 6 3 Gols peat Sos NEAR ; 0896 
4° pd 0018C PUSHL #1 : 0897 ; 
53 DD O18 PUSHL FCB : : 
DD 001C PUSHL HEADER : | : 
3 OD 001C PUSHL @# : | : 
E DD O01C USHL SP ; : 
00006 tF 9F 0016 PUSHAB MAKE EXTFCB : ; 
69 F 1CA CALLS 4% SYSSCMKRNL : ; 
52 DO 001CD MOVL RO. FCB : ; 
11 001D BRB 19 > 0893 : 
6A D1 001D2 208:  CMPL = FCB, PRIMARY_FCB > 0899 : 
1 13 0010 BEQL 1 3 5 
gh DD 001D PUSHL PRIMARY_FCB > 0902 : 
00006 CF ; Pe boibe Sere go. READ. HEADER : : 
gf g be O1e0 MOVL RO. HEADER : : 


on3¢ -1984 VAX-11 Bliss-32 V4,0-742 Page 18 
16 -329-1 964 99: 34; 9 DISKSVMSMASTER:CFI1A.SRCICLENUP.B32: 1." 4) 
7 0D 001 PUSHL HEADER : 0903 
1 DD 001 PUSHL ; 
E po 1 PUSHL SP : 
oe  tette b Pe OOlED Chet S. 96. SYSSCRKRNL 
05 8 D £8 if 21$: BCC 39, CLEANUP_FLAGS, 22$ + 0910 
00006 cf 00 FB 001F4 CALLS #0, REMAP_FICE ; 
0 00006 CF DO O01F9 228:  MOVL NeW. , + 0916 
Poy 1F EQL «6-238 ; 
0 DD PUSHL RO + 0917 
00006 CF if CALLS #1, DELETE FID ; 
00006 cr ; 07 23$ ist CONTEXT_SAVE ; 0923 
00006 CF 00006 CF 00006 8F 28 00 Op MOVC3 M#CONTEXT_SIZE, CONTEXT_SAVE, CONTEXT_START : 0924 
0000G CF ee 021 CLRL CONTEXT_SAVE : 0925 
FEOA 31 0021B BRW i$ : 0728 
50 01 DO OO21E 248 MOVL #1, RO + 0929 
04 00221 RET + 0931 


; Routine Size: 546 bytes, Routine Base: SCODES + 0121 


ROUTINE MAKE_DEACCESS = 
14 
FUNCTIONAL DESCRIPTION: 
This routine performs the machinery for deaccessing a file. 


CALLING SEQUENCE: 
MAKE _DEACCESS () 


INPUT PARAMETERS: 
NONE 


FFF FWA 


FUN OOONOUS UT 


OOOOOOOOOOOO 


OOooooooooo°oo 


WNC DOONAN EWN “OC ODONOUFS wr 


3 1 

: 1 

; 1 

3 1! 

3 1 3 

s 3 

; 1! 

; . 

; 1! 

3 1! 

5 1! 

; 2 

; 944 1! 

3 0945 1! 

3 0946 1 ! IMPLICIT INPUTS: 

3 0947 1! PRIMARY_FCB: FCB of file 

; 0948 1! CURRENT_WINDOW: window of file 

3 tr) : CURRENT_VCB: VCB of volume in process 

3 b984 1 ! OUTPUT PARAMETERS: 

3 boe8 1! NONE 

3 9535 1! 

3 644 0954 1 ! IMPLICIT OUTPUTS: 

; 645 0955 1! NONE 

3; 646 8328 1! 

3 647 0957 1 ! ROUTINE VALUE: 

3; 648 0958 1! NONE 

; 6469 0959 1! 

; 650 0960 1 ! SIDE EFFECTS: 

3; 651 0961 1! file deaccessed 

3 $26 0962 1! 

: 65 0963 1 !-- 

>; 654 0964 1 

3; 655 0965 BEGIN 

; 656 096 

: 657 096 LOCAL F 

; 658 0968 WINDOW_SEGMENT : REF BBLOCK, ! address of the next window segment 
3; 659 0969 DUMMY ; ! dummy local to receive REMQUE 
; 660 0970 

: 661 344 EXTERNAL 

3 O96 44 PRIMARY_FCB : REF BBLOCK, ! FCB of file 

; 66 097 CURRENT_WINDOW : REF BBLOCK, ' window of file 

; 664 974 CURRENT VCB : REF BBLOCK, ' VCB of volume 

3; 665 975 PMSS$GL_OPEN : ADDRESSING_MODE (ABSOLUTE); 

3; 666 976 ! system count of currently open files 
3; 667 977 

3; 668 are kee 
3; 669 97 ' Unlink the window from the FCB. Clear the applicable access conditions 
: 670 0980 ! in the FCB. 

3; 671 981 ! 

3 O76 9 § 

; 67 9 WINDOW_SEGMENT = .CURRENT_WINDOW; 

3; 674 984 dO 

3; 675 985 BEGIN 

3 676 Hy IF WINDOW SEGMENTCWCBSL_WLFLJ “ OQ THEN REMQUE (.WINDOW SEGMENT, DUMMY); 
3 ort 88 WINDOW _SEGRENT = ,WINDOW”SEGMENTCWCBSL_LINK); 
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3; 6 1:44 UNTIL .WINDOW_SEGMENT EQL 0; 

; 681 991 F_. CURRENT WINDOWCWCBSV_NOREAD 

3 ¢ 338 THEN PRIMARY F CBCP CBSY ERCLI = 0; 

3 § B38 IF _ .CURRENT WINDOWCWCBSV_NOWRITE) 

; 685 5 @ THEN PRIMARY_FCBLFCBSW_LENT] = .PRIMARY_FCBCFCBSW_LCNT] = 1; 

; 68 399 IF CURRENT WINDOWCWCBSV_NOTRUNC] 

: ons 44 THEN PRIMARY_FCBCFCBSW_TONT] = .PRIMARY_FCBCFCBSW_TCNT] - 1; 

3; ¢ 1909 ! For a write access, bump down the writer count. If this is the 
; 69 1 ! last write, and the file is the index file or the storage map, clear 
; 69 1908 ! the appropriate flag in the VCB. 

; 69 100 } 

; 694 1004 

; 695 1005 IF .CURRENT_WINDOWCWCBSV_WRITEJ 

; $38 1908 THEN 

; 69 100 BEGIN 

; 698 1008 PRIMARY FCBCFCBSW_WCNT) = .PRIMARY_FCBCFCBSW_WCNT) = 1; 

; 699 1009 IF .PRIMARY_FCBLFCBSW_WCNT) EQL 0 

; 700 1010 THEN 

3; el 1011 4 N 

; Sig & IF .PRIMARY FCBCFCBSW_FID_NUM) EQL 1 

3; 1013 4 THEN CURRENT VCBCUCBS0_WRITE_IF] = 0; 

; 704 1014 4 IF .PRIMARY FCBCFCBSW_FID RUM) EGL ¢ 

: 705 1015 4 THEN CURRENT_VCBCUCBSU_WRITE_SM] = 0; 

; 706 1016 3 D; 

; 707 1017 END; 

; 708 1018 

3 444 44 PRIMARY_FCBCFCBSW_ACNT] = .PRIMARY_FCBCFCBSW_ACNT] - 1; 

s. 7 1021 ! If this was the last access, yank the FCB out of the FCB List and dump its 
3 Ne 10 ; ! extensions, if any. 

s ri 10 : 

: (714 1024 

s 715 1962 IF .PRIMARY_FCBCFCBSW_ACNT] EQL 0 

; 716 18 6 THEN 

s 7? 1 44 BEGIN 

: #718 1028 REMQUE (.PRIMARY_FCB, DUMMY); 

3; ri 1029 DEL_EXTFCB (.PRIMARY_FCB); 

Oe Bh. 

: 738 10 § PMS$GL_OPEN = .PMS$GL_OPEN - 1; ' bump down count of open files 
; 4 ; 10 ; CURRENT_VCBCVCB$W_TRANS) = .CURRENT_VCBLVCB$W_TRANS] - 1; 

3 72s 1035 RETURN 1; 

: 726 10 § : 

3; Ve? 103 END; ! end of routine MAKE_DEACCESS 


.EXTRN PMS$GL_OPEN 
001C 00000 MAKE_DEACCESS: 
-WOR Save R2,R3,R4 
54 00006 CF 9€ 00002 MOVAB CURRENT. VCB, R4 ; 
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53 90006 CF 9 07 MOVAB PRIMARY_FCB, R3 F | 
0006 CF D MOVL § CURRENT-WINDOW, WINDOW_ SEGMENT : 0985 
6 p 1$: Ist (WINDOW. SEGMENT) : 0986 
32 60 OF 0001 REMQUE (WINDOW SEGMENT), DUMMY ; | 
20 A 3 18 28: HOV g (WINDDW_ SEGMENT) , WINDOW_ SEGMENT ; 0987 | 
51 00006 cf D 1 MOVL CURRENT WINDOW, R1 : $35; 
07 15 Al E1 BBC #2, 21(R1), 3$ : 
50 6 bo MOVL PRIMARY_FCB, RO + 0992 
22 AO A 00028 BICB2 8, 34 (RO) : 
06 14 al £9 f 3$: BLBC 20(R1), 4$ + 0994 
é D9 MOVL § PRIMARY_FCB, RO + 0995 
1E AO 87 00 DECW 39(R9) : 
06 S$ Al 03 £1 00 4$: BBC #3, 21(R1), 5$ + 0997 
50 6 a 0 E MOVL §§ PRIMARY_FCB, RO : 0998 
20 Ad B7 00041 DECW  32(RO) : 
22 0B AI 01 £1 00044 5$: BBC wi, 11(R1), 7$ + 1005 
50 63 D0 0049 MOVL §§ PRIMARY_FCB, RO + 1008 
1¢ AO 87 0004C DECW g8(RO) : | 
1A 12 O004F BNEQ ‘ : 1009 
01 24 Ad Bi 90051 CMPW  =s-«36 (RO), #1 + 1012 
07 if 0055 BNEQ 6$ ; 
51 64 p00 00057 MOVL CURRENT_VCB, R1 : 1013 
0B SOA 01 BA 0005A BICB2 #1, 11(R1) : 
02 24 AO Bi 00055 6$: CMPW 3-36 (RO), #2 + 1014 
07 12 0006 BNEQ 7$ : 
50 64 D0 00064 MOVL  CURRENT_VCB, RO + 1015 
0B AO 02 BA 00067 BICB2 #2, 11(R : 
50 63 DO 0006B 7$: MOVL  PRIMARY_FCB, RO + 1019 
1A AO B7 0006E DECW 6(RO) ; 
OA 12 00071 NEQ + 1025 
52 60 OF 00073 REMQUE (RO), Y + 1028 
63 DD 00076 USHL PRIMARY_FCB + 1029 
0000v CF 01 Fe 00078 CALLS #1, DELTEXTFCB ; 
000000006 9F D7 0007D 8s: DECL § a@#PMS$GC_OPEN : 1032 
50 64 D0 90085 MOVL  CURRENT_JCB, RO + 1033 
0c AO B87 00086 DECW  12(RO) ; 
50 01 DO 00089 MOVL #1, RO : 1035 
04 0008C RET > 1037 


; Routine Size: 141 bytes, Routine Base: S$CODE$ + 0343 
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; 198 } 8 ] GLOBAL ROUTINE DEL_EXTFCB (START_FCB) = : 
: 731 1040 1 !44 | ; 
3; £ ¢ 1041 1! ; 
3 4 : rk: } FUNCTIONAL DESCRIPTION: : 
3 39 10464 1! This routine removes and deailocates all extension FCB's, if any, ‘ 
3 f : rb : } Linkeg to the indicated FCB. : 
; 738 194? 1 ! CALLING SEQUENCE: : 
; 739 1 : 1! DEL_EXTFCB (ARG1) : 
: 740 136 13 | ; 
3; 741 1050 1 =! INPUT PARAMETERS: : 
; iS 108¢ ! ARG1: address of primary FCB or 0 ; 
3; 744 1 : 1 ! IMPLICIT INPUTS: ; 
3 7465 1054 1! NONE ‘ 
; res 1055 1! : 
3; 746 1938 1 ! OUTPUT PARAMETERS: ; 
; 748 1057 1! NONE ; 
: 749 1058 1! ‘ 
; 750 1059 1°! IMPLICIT OUTPUTS: : 
3 673) 1060 1! NONE : 
; 138 1061 1: | ; 
3s 1906 1 ! ROUTINE VALUE: . 
3; 754 1065 1! NONE : 
: 299 1064 1 | : 
s 26 1065 1 ! SIDE EFFECTS: ; 
3; 757 1066 1! FCB's deallocated ’ 
: 758 1067 1! : 
; 759 1068 1 !-- > 
:; 760 H's 34 1 : 
; «761 1070 BEGIN ; 
; re6 1071 : 
3; 76 1076 MAP : 
; 764 107 START_FCB : REF BBLOCK; ! FCB argument : 
; 765 1074 3 
; £96 1075 LOCAL 3 
3; 1076 FCB : REF BBLOCK, ! running FCB pointer : 
; 768 1077 NEXT FCB : REF BBLOCK, ! next extension FCB : 
3 a4 1978 DUMMY ; ! dummy local to receive REMQUE : 
: 771 1080 2 EXTERNAL ROUTINE | 
; ae 19 1 DEALLOCATE; ! deallocate dynamic memory : 
3; «6774 1 j ‘ checking for null pointers, find the first extension FCB. Follow the extension ; 
» ire 1084 ! List and remove and deallocate the extension FCB's, cleaning out the pointers : 
3 rv HF ' on the way. : 
rr 1 $ ! 3 
; 778 1 : 
; 779 1 3 IF .START_FCB Hi 0 THEN RETURN 1; 3 
; 780 1 FCB = .START FCB yest NEB: : 
; 781 1090 START_FCBCFCBSL_EXFCB)™= 0; ’ 
a § +64 UNTIL”.FCB EQL 0 DO 

3; 7 1 ¢ BEGIN 

Se « 109 NEXT_FCB = a0 COC h COR. SRFCBD: 

; «785 1094 FCBCFCBSL_EXFCB) = 0; 


ma 
No 
a 


Page 


-B32;1 


Hy ss-32 V4,0-742 


VAX=11 BLi 
DISKSVMSMASTER:CF11A.SRCICLENUP 


@ 
<= VL 
- 
— 
4 
uu 
a 
wm 4 
om ive) 
ed Qa 
-—o 
wr aw 
- +. c 
om —- 
or 7 
S 
ww °o 
coco oa 
oo 
-— = 
se o 
aa 
-¢@ ao) 
num c 
i) a 
uo 
Sh ee -- 
se 
~~ 
> 
*e 
-~ 
@-s 
av® 
uw 
> 
@a~ 
~~ = 
ee ts 
om us 
~<aZz 
we 
wo 
— . 
ow Sn oad 
=z<oao 
wweez 2 
ecouw a 
= oe 
- se 
w & 
cc w 


a 


$8 saS28e5% 
. $ormennms 


wT 
ts 4 
. 
~ 
a 
. 
™N 
« 
@ 

gw Vv 

> “ 

© a w 
no - -—@ 

« x + «tw 

. @ w = vou 
ms. wv 2 oO 
eo uu! 2 «aA © 
uw > oa —@ 
—-~ . an qw 

=x Aan @am:+ ww © 
we OO ven Cot « 
= «cc wua@ - 

—_ = ~~ ~weVU@ sx . 


« SoM 
ee ee SL ee 
2>or>arOor>acivi> a> 
wowd JImMwo swwoatocow 
*EOZvrOFveCaAvFtoOote 
A A 
- N 


SOoCoooooooooooooeo 
GoCCCOCOCOCCOCOCOooo 


VOMOoOTNMOowsu ODMOr-- Os 
—* aeoaor-aonoeoanu oe oO 
o 
VK QOWONNNINE MO 
«ve iner ft LOMOMWO 


45 bytes, Routine Base: S$CODE$S + 0300 


; Routine Size: 
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ROUTINE ZERO_CHANNEL = | 
oe 
' 


; FUNCTIONAL DESCRIPTION: 


Mew 


This routine zeroes out the window pointer being returned to 

the user for his channel control block. It also credits one to the 
user's open file quota, except for the case of a shared window. 
This routine must be executed in kernel mode. 


i CALLING SEQUENCE: 
ZERO_CHANNEL () 


i INPUT PARAMETERS: 
NONE 


' 
' 
' 
! 
' 
! 
' 
' 
' 
' 
: 
! IMPLICIT INPUTS: 

IO_PACKET: 1/0 packet of request 
i 

' 

! 

' 

' 

' 

! 

' 

' 

' 

! 

' 

' 


i OUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: | 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
! channel window pointer cleared, file quota bumped unless shared window 


IA AAI AIP PIPIPI POPINPININYDYD 2 2 oe es 


: REF BBLOCKVECTOR C,ABDSC_LENGTH), 
' buffer descriptors 
J18 : REF BBLOCK, ' Job information block 
: REF BBLOCK; ' address of user process control block 


ae 


EXTERNAL 
CURRENT_WINDOW : REF BBLOCK, ' window address of file 
PACKET : REF BBLOCK, ! 1/0 poche’ in process 
SCASGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); 
! system PCB vector 


aw 


SRLS 


—OO@we VW FwN 00 


: painter to buffer descriptors 
ABD = .BBLOCK (.10 BDSu COUNT) SVAPTE], AIBSL_DESCRIPT); 


ABDCABD$SC_WINDOW, ABD$SW COUNT ' 
.ABDCABDSC_WINDOW, ABD$SO_TEXT] + ABDCABDSC_WINDOW, ABDSW_TEXT] + 1 = 0; 
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; FILCNT is credited if a WCB has not yet been allocated or 
! * he SHRW B N t is not set in the WCB. 
i. cyment vou EQL 0 
ELSE NOT .CURRENT_WINDOWCWCBSV_SHRWCB) 
THEN 
BEGIN 
PCB = + SCHSGL pcevec . (10_PACKETCIRPSL_P1DI)<0, 16>); 
JIB = .PCBCPCBSL 
J1BCJ 1684 _F ILENT] s -J1BCJ18$W_FILCNTI + 1; 
RETURN 1; 
END; ! end of routine ZERO_CHANNEL 
-EXTRN SCHSGL_PCBVEC 
0004 00000 ZERO_CHANNEL: 
-WORD Save R2 
52 0000G CF 00 00002 MOVL 10_PACKET, R2 
51 2C B62 00 00007 MOVL a4Z(R2), 
02. Al 04 0 444 MOVW #4, 2(ABD 
50 61 3C OO000F MOVZWL (ABD), R 
01 A140 9F 00012 PUSHAB 1(ABDSCROJ 
9E D4 00016 CLRL a(SP)+ 
51 00006 CF 9 00018 MOVL CURRENT_WINDOW, R1 
05 13 0001D BEQL 1$ 
17 0B «CAI 03 £0 0001F BBS #3, 11(R1), 2$ 
51 000000006 9F b0 00024 1$ MOVL §§ a#SCH$GL_PCBVEC, R1 
50 0c ag C 00028 MOVZWL Yecne) RO 
50 6140 D0 0002F MOVL  (R1)CRO, PCB 
50 0088 CO DO 00033 MOVL ts tae JIB 
0 a0 B6 000 INCW 48(J1B) 
50 01 00 0038 2s MOVL #1, RO 
04 000 RET 
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Library Statistics 
wocecee= Symbols -------- 
File Total Loaded 
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1072 coge + 12 data bytes 
00:24.4 
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